﻿Imports Capa_de_Acceso_a_Datos
Imports Capa_de_Negocio
Public Class frmComprobanteRecepcion
    Public idComprobantePresentacion As Integer
    Public fecha As String
    Public ObraSocialNombre As String
    Public PlanNombre As String
    Public QuincenaId As Integer
    Public empleadoNombre As String
    Public empleadoApellido As String
    Public detalleTotalFacturado As Double
    Public detalleCantidadRecetas As Integer
    Public detalleACargoObraSocial As Double
    Public farmaciaNombre As String
    Public farmaciaRazonSocial As String

    Private Sub frmComprobanteRecepcion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Con que me pasen el numero de comprobante de presentación generado esta consulta devuelve el resto de los datos para el detalle
        Dim reporte As New rptComprobanteRecepcion()
        reporte.SetDataSource(ComprobantePresentacionDAO.ReporteComprobantePresentacion(idComprobantePresentacion))
        crvComprobanteRecepcion.ReportSource = reporte
        crvComprobanteRecepcion.Zoom(70)

    End Sub
End Class